home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / midilang / autobas.mpl < prev    next >
Encoding:
Text File  |  1996-02-06  |  1.2 KB  |  77 lines
  1. 3357
  2. #
  3. #
  4. #
  5. #    autobas.mpl
  6. #
  7. #    Automatic Scale of Bass for Midi Keyboard
  8. #
  9. #      Author            ID                 Date
  10. #    ------------    -----------          ---------
  11. #    Serge Sibony    100417,2633           09/06/95
  12. #      
  13. #
  14. # This file is a mpl effect definition used by MidiLang
  15. #    MidiLang can be found at the MidiForum, in the
  16. #         Windows sound media library.
  17. # 
  18. # 
  19. # This effect adds scale of basses ( C D E F G A C ) based on
  20. # your melody.
  21. #
  22. #    The tonality is reset every 8 beats.
  23. #
  24. #    This mpl effect supposes that your bass channel is 2
  25. #
  26. #
  27.  
  28.  
  29.  
  30. Label beats
  31. # to be run at each beat
  32.  
  33. v+= 10 1
  34.  
  35. v< 10 9
  36.     goto suite
  37.  
  38. v= 10 1
  39. beat= 0
  40.  
  41. v== 9 0        if no note have been played , wait
  42.     goto end_beat
  43.  
  44. oldharm 1    reset the harmony
  45. calcharm 1
  46.  
  47. Label suite
  48.  
  49. v== 9 0
  50.     goto end_beat
  51.  
  52. getharm 1 10 5        get the note V[10]
  53.  
  54. Chan= 2
  55. vel= 100
  56. note=v 5
  57. note+= 24
  58. outmidi
  59. time+= 479
  60. vel= 0
  61. outmidi
  62.  
  63. Label end_beat
  64. end
  65.  
  66.  
  67. Label Main        Every note played are sent 
  68. CalcHarm 1        to the harmony package
  69. v= 9 1
  70. End
  71.  
  72. descript Automatic bass
  73. descript based on your melody.
  74. descript the scale is the one defined with
  75. descript your melody.
  76.  
  77.